program Project1; //Zadanie 4.4

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 10;

type
  macierz = array[1..n, 1..n] of integer;

var
  i, j, suma : integer;
  tablica : macierz;

begin
{wpisywanie do tablicy liczb od 1 do 10 na przektnej, a 0 poza przektn}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if i = j then
            tablica[i,j]:=i
          else
            tablica[i,j]:=0
        end; {j}
    end;   {i}   {Koniec wpisywania}

{Wydruk zawartosci tablicy}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          Write(tablica[i,j],' ');
        end; {j}
       writeln;
    end;   {i}
{Koniec wydruku tablicy}

{Obliczanie sumy elementow znajdujacych sie na przekatnej tablicy}
 suma:=0;

 for i:=1 to n do
   suma:=suma+tablica[i,i];
 Writeln;
 Writeln('Suma wyroznionych w zadaniu elementow wynosi ',suma, '.');

 Readln; //czeka na nacisniecie klawisza Enter
end.
